home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
CMPLTPAS
/
CAPSLOCK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-12-15
|
362b
|
14 lines
{<<<< Capslock >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann }
{ Scott, Foresman & Co. 1988 ISBN 0-673-38355-5 }
{ Described in section 9.6 -- Last mod 12/13/88 }
FUNCTION Capslock(Ch : Char) : Char;
CONST
Lowercase : SET OF Char = ['a'..'z'];
BEGIN
IF Ch IN Lowercase THEN CapsLock := Chr(Ord(Ch)-32)
ELSE CapsLock := Ch;
END